MultiSelect, Selected Properties Example
The following example uses the MultiSelect and Selected properties to demonstate how the user can select one or more items in a ListBox. The user specifies a selection method by choosing an option button and then selects an item(s) from the ListBox. The user can display the selected items in a second ListBox by clicking the CommandButton.
To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:
Dim i As Integer
Private Sub CommandButton1_Click()
ListBox2.Clear
For i = 0 To 9
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
End If
Next i
End Sub
Private Sub OptionButton1_Click()
ListBox1.MultiSelect = fmMultiSelectSingle
End Sub
Private Sub OptionButton2_Click()
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub
Private Sub OptionButton3_Click()
ListBox1.MultiSelect = fmMultiSelectExtended
End Sub
Private Sub UserForm_Initialize()
For i = 0 To 9
ListBox1.AddItem "Choice " & (ListBox1.ListCount + 1)
Next i
OptionButton1.Caption = "Single Selection"
ListBox1.MultiSelect = fmMultiSelectSingle
OptionButton1.Value = True
OptionButton2.Caption = "Multiple Selection"
OptionButton3.Caption = "Extended Selection"
CommandButton1.Caption = "Show selections"
CommandButton1.AutoSize = True
End Sub